home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / USER1.FAS < prev    next >
Text File  |  1994-02-05  |  23KB  |  435 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01)
  4.    (THE-ENVIRONMENT EVAL-ENV WITH-KEYBOARD *KEYBOARD-INPUT*)
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
  7. #Y(#:TOP-LEVEL-FORM-4 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  8.    (SPECIAL *COMPILING*) *COMPILING*
  9.   )
  10. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) %THE-ENVIRONMENT
  11.    REMOVE-OLD-DEFINITIONS
  12.    #Y(%THE-ENVIRONMENT #19Y(02 00 00 00 00 03 A8 C0 5A 14 C1 5A 14 A9 C0 5B 99 19 03) 0. 2.)
  13.   )
  14. #Y(#:TOP-LEVEL-FORM-6 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) THE-ENVIRONMENT
  15.    REMOVE-OLD-DEFINITIONS MACRO
  16.    #Y(THE-ENVIRONMENT
  17.       #30Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2E 07 0E 02 1B 08 C5 19 03 A9 2E 01 19 03 D8 D9 5E
  18.            01
  19.           )
  20.       1. MACRO-CALL-ERROR *COMPILING* "~S is impossible in compiled code" THE-ENVIRONMENT
  21.       (LET ((*EVALHOOK* #'%THE-ENVIRONMENT)) 0.)
  22.   )  )
  23. #Y(#:TOP-LEVEL-FORM-7 #18Y(00 00 00 00 00 01 D5 30 5B D6 D7 6D 5C 30 53 C1 19 01)
  24.    (SPECIAL *TOPLEVEL-ENVIRONMENT*) *TOPLEVEL-ENVIRONMENT* (THE-ENVIRONMENT)
  25.   )
  26. #Y(#:TOP-LEVEL-FORM-8 #20Y(00 00 00 00 00 01 D5 30 5B D6 67 02 C3 5A 14 30 53 C1 19 01)
  27.    (SPECIAL *TOPLEVEL-DENV*) *TOPLEVEL-DENV* *TOPLEVEL-ENVIRONMENT* 4.
  28.   )
  29. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) EVAL-ENV
  30.    REMOVE-OLD-DEFINITIONS
  31.    #Y(EVAL-ENV #20Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 A9 01 02 AB 30 5D 19 03)
  32.       *TOPLEVEL-ENVIRONMENT*
  33.   )  )
  34. #Y(#:TOP-LEVEL-FORM-10 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 D7 30 53 C1 19 01)
  35.    (SPECIAL *BREAK-COUNT*) *BREAK-COUNT* 0.
  36.   )
  37. #Y(#:TOP-LEVEL-FORM-11 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  38.    (SPECIAL *KEY-BINDINGS*) *KEY-BINDINGS*
  39.   )
  40. #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) HELP
  41.    REMOVE-OLD-DEFINITIONS
  42.    #Y(HELP
  43.       #35Y(00 00 00 00 00 01 D5 67 01 37 05 6E 4A 6E 42 5F 1A 0A 83 01 00 14 37 03 30 89 7F 01 A8
  44.            89 92 72 00 19 03
  45.           )
  46.       #.#'STRINGP *KEY-BINDINGS*
  47.   )  )
  48. #Y(#:TOP-LEVEL-FORM-13 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *DEBUG-FRAME*)
  49.    *DEBUG-FRAME*
  50.   )
  51. #Y(#:TOP-LEVEL-FORM-14 #12Y(00 00 00 00 00 01 D5 30 5B C1 19 01) (SPECIAL *DEBUG-MODE*)
  52.    *DEBUG-MODE*
  53.   )
  54. #Y(#:TOP-LEVEL-FORM-15 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  55.    (SPECIAL *FRAME-LIMIT1*) *FRAME-LIMIT1*
  56.   )
  57. #Y(#:TOP-LEVEL-FORM-16 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  58.    (SPECIAL *FRAME-LIMIT2*) *FRAME-LIMIT2*
  59.   )
  60. #Y(#:TOP-LEVEL-FORM-17 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) FRAME-LIMIT1
  61.    REMOVE-OLD-DEFINITIONS
  62.    #Y(FRAME-LIMIT1
  63.       #38Y(01 00 00 00 00 02 2D 00 14 00 10 01 00 10 02 D8 1A 07 AE D9 2F 05 FD 81 00 A7 B1 8D 01
  64.            30 73 16 01 12 02 15 19 02
  65.           )
  66.       THE-FRAME *FRAME-LIMIT1* *FRAME-LIMIT2* 0. 1. FRAME-UP-1
  67.   )  )
  68. #Y(#:TOP-LEVEL-FORM-18 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) FRAME-LIMIT2
  69.    REMOVE-OLD-DEFINITIONS
  70.    #Y(FRAME-LIMIT2
  71.       #58Y(00 00 00 00 00 01 2D 00 14 00 10 01 00 10 02 1A 04 98 FD 16 01 AD D8 6C 04 A7 A0 21 04
  72.            A7 85 05 70 16 01 DB 1A 07 AE D8 2F 08 FD 81 00 A7 DC 8D 01 30 73 16 01 12 02 15 19 01
  73.           )
  74.       THE-FRAME *FRAME-LIMIT1* *FRAME-LIMIT2* 1. FRAME-UP-1 DRIVER-FRAME-P 0. 2. FRAME-DOWN-1
  75.   )  )
  76. #Y(#:TOP-LEVEL-FORM-19 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-HELP
  77.    REMOVE-OLD-DEFINITIONS #Y(DEBUG-HELP #11Y(00 00 00 00 00 01 2D 00 D6 C2 4F) HELP DEBUG CONTINUE)
  78.   )
  79. #Y(#:TOP-LEVEL-FORM-20 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-UNWIND
  80.    REMOVE-OLD-DEFINITIONS #Y(DEBUG-UNWIND #9Y(00 00 00 00 00 01 D5 C1 4F) DEBUG UNWIND)
  81.   )
  82. #Y(#:TOP-LEVEL-FORM-21 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-MODE-1
  83.    REMOVE-OLD-DEFINITIONS
  84.    #Y(DEBUG-MODE-1 #12Y(00 00 00 00 00 01 C0 0F 01 D7 C3 4F) 1. *DEBUG-MODE* DEBUG CONTINUE)
  85.   )
  86. #Y(#:TOP-LEVEL-FORM-22 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-MODE-2
  87.    REMOVE-OLD-DEFINITIONS
  88.    #Y(DEBUG-MODE-2 #12Y(00 00 00 00 00 01 C0 0F 01 D7 C3 4F) 2. *DEBUG-MODE* DEBUG CONTINUE)
  89.   )
  90. #Y(#:TOP-LEVEL-FORM-23 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-MODE-3
  91.    REMOVE-OLD-DEFINITIONS
  92.    #Y(DEBUG-MODE-3 #12Y(00 00 00 00 00 01 C0 0F 01 D7 C3 4F) 3. *DEBUG-MODE* DEBUG CONTINUE)
  93.   )
  94. #Y(#:TOP-LEVEL-FORM-24 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-MODE-4
  95.    REMOVE-OLD-DEFINITIONS
  96.    #Y(DEBUG-MODE-4 #12Y(00 00 00 00 00 01 C0 0F 01 D7 C3 4F) 4. *DEBUG-MODE* DEBUG CONTINUE)
  97.   )
  98. #Y(#:TOP-LEVEL-FORM-25 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-MODE-5
  99.    REMOVE-OLD-DEFINITIONS
  100.    #Y(DEBUG-MODE-5 #12Y(00 00 00 00 00 01 C0 0F 01 D7 C3 4F) 5. *DEBUG-MODE* DEBUG CONTINUE)
  101.   )
  102. #Y(#:TOP-LEVEL-FORM-26 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-WHERE
  103.    REMOVE-OLD-DEFINITIONS
  104.    #Y(DEBUG-WHERE #15Y(00 00 00 00 00 01 67 00 67 01 2F 02 D8 C4 4F) *STANDARD-OUTPUT*
  105.       *DEBUG-FRAME* DESCRIBE-FRAME DEBUG CONTINUE
  106.   )  )
  107. #Y(#:TOP-LEVEL-FORM-27 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-UP
  108.    REMOVE-OLD-DEFINITIONS
  109.    #Y(DEBUG-UP #22Y(00 00 00 00 00 01 67 00 67 01 67 02 2F 03 0F 01 14 2F 04 DA C6 4F)
  110.       *STANDARD-OUTPUT* *DEBUG-FRAME* *DEBUG-MODE* FRAME-UP-1 DESCRIBE-FRAME DEBUG CONTINUE
  111.   )  )
  112. #Y(#:TOP-LEVEL-FORM-28 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-TOP
  113.    REMOVE-OLD-DEFINITIONS
  114.    #Y(DEBUG-TOP #22Y(00 00 00 00 00 01 67 00 67 01 67 02 2F 03 0F 01 14 2F 04 DA C6 4F)
  115.       *STANDARD-OUTPUT* *DEBUG-FRAME* *DEBUG-MODE* FRAME-UP DESCRIBE-FRAME DEBUG CONTINUE
  116.   )  )
  117. #Y(#:TOP-LEVEL-FORM-29 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-DOWN
  118.    REMOVE-OLD-DEFINITIONS
  119.    #Y(DEBUG-DOWN #22Y(00 00 00 00 00 01 67 00 67 01 67 02 2F 03 0F 01 14 2F 04 DA C6 4F)
  120.       *STANDARD-OUTPUT* *DEBUG-FRAME* *DEBUG-MODE* FRAME-DOWN-1 DESCRIBE-FRAME DEBUG CONTINUE
  121.   )  )
  122. #Y(#:TOP-LEVEL-FORM-30 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-BOTTOM
  123.    REMOVE-OLD-DEFINITIONS
  124.    #Y(DEBUG-BOTTOM #22Y(00 00 00 00 00 01 67 00 67 01 67 02 2F 03 0F 01 14 2F 04 DA C6 4F)
  125.       *STANDARD-OUTPUT* *DEBUG-FRAME* *DEBUG-MODE* FRAME-DOWN DESCRIBE-FRAME DEBUG CONTINUE
  126.   )  )
  127. #Y(#:TOP-LEVEL-FORM-31 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-BACKTRACE
  128.    REMOVE-OLD-DEFINITIONS
  129.    #Y(DEBUG-BACKTRACE
  130.       #38Y(00 00 01 00 00 07 3A 01 03 0E 00 F7 67 01 A9 6C 02 A9 6C 03 67 04 A8 2F 05 A7 A8 AB 2F
  131.            02 F7 22 73 16 01 DB C7 4F
  132.           )
  133.       *DEBUG-MODE* *FRAME-LIMIT1* FRAME-UP-1 FRAME-DOWN-1 *STANDARD-OUTPUT* DESCRIBE-FRAME DEBUG
  134.       CONTINUE
  135.   )  )
  136. #Y(#:TOP-LEVEL-FORM-32 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-BACKTRACE-1
  137.    REMOVE-OLD-DEFINITIONS
  138.    #Y(DEBUG-BACKTRACE-1 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) 1. DEBUG-BACKTRACE)
  139.   )
  140. #Y(#:TOP-LEVEL-FORM-33 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-BACKTRACE-2
  141.    REMOVE-OLD-DEFINITIONS
  142.    #Y(DEBUG-BACKTRACE-2 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) 2. DEBUG-BACKTRACE)
  143.   )
  144. #Y(#:TOP-LEVEL-FORM-34 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-BACKTRACE-3
  145.    REMOVE-OLD-DEFINITIONS
  146.    #Y(DEBUG-BACKTRACE-3 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) 3. DEBUG-BACKTRACE)
  147.   )
  148. #Y(#:TOP-LEVEL-FORM-35 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-BACKTRACE-4
  149.    REMOVE-OLD-DEFINITIONS
  150.    #Y(DEBUG-BACKTRACE-4 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) 4. DEBUG-BACKTRACE)
  151.   )
  152. #Y(#:TOP-LEVEL-FORM-36 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-BACKTRACE-5
  153.    REMOVE-OLD-DEFINITIONS
  154.    #Y(DEBUG-BACKTRACE-5 #11Y(00 00 00 00 00 01 D5 2E 01 19 01) 5. DEBUG-BACKTRACE)
  155.   )
  156. #Y(#:TOP-LEVEL-FORM-37 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-REDO
  157.    REMOVE-OLD-DEFINITIONS
  158.    #Y(DEBUG-REDO #13Y(00 00 00 00 00 01 67 00 2E 01 D7 C3 4F) *DEBUG-FRAME* REDO-EVAL-FRAME DEBUG
  159.       CONTINUE
  160.   )  )
  161. #Y(#:TOP-LEVEL-FORM-38 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-RETURN
  162.    REMOVE-OLD-DEFINITIONS
  163.    #Y(DEBUG-RETURN #16Y(00 00 00 00 00 01 67 00 D6 6B 02 2F 03 D9 C5 4F) *DEBUG-FRAME* "values: "
  164.       READ-FORM RETURN-FROM-EVAL-FRAME DEBUG CONTINUE
  165.   )  )
  166. #Y(#:TOP-LEVEL-FORM-39 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEBUG-CONTINUE
  167.    REMOVE-OLD-DEFINITIONS #Y(DEBUG-CONTINUE #9Y(00 00 00 00 00 01 D5 C1 4F) DEBUG QUIT)
  168.   )
  169. #Y(#:TOP-LEVEL-FORM-40-1
  170.    #32Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 DA 94 06 76 77 02 31 75 3D
  171.         19 01
  172.        )
  173.    COMMANDS0 "~S redefines the constant ~S. Its old value was ~S."
  174.    (DEFCONSTANT COMMANDS0
  175.     (LIST
  176.      #1="
  177. Help = this list
  178. Use the usual editing capabilities."
  179.      (CONS #2="Help" #'DEBUG-HELP)
  180.    ))
  181.    WARN #1# #2# DEBUG-HELP
  182.   )
  183. #Y(#:TOP-LEVEL-FORM-40-2
  184.    #113Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 DA 94 06 76 DC 94 06 76 DD
  185.          94 09 76 DF 94 09 76 E0 94 0C 76 E2 94 0E 76 E4 94 10 76 E6 94 12 76 E8 94 14 76 EA 94 16
  186.          76 EC 94 18 76 EE 94 1A 76 F0 94 1C 76 F2 94 1E 76 F4 94 20 76 61 21 94 22 76 61 23 94 24
  187.          76 61 25 94 26 76 61 27 94 28 76 61 29 94 2A 76 77 15 31 75 3D 19 01
  188.         )
  189.    COMMANDS1 "~S redefines the constant ~S. Its old value was ~S."
  190.    (DEFCONSTANT COMMANDS1
  191.     (LIST
  192.      #1="
  193. Help   = this command list
  194. Abort  = abort to the next recent input loop
  195. Unwind = abort to the next recent input loop
  196. Mode-1 = inspect all the stack elements
  197. Mode-2 = inspect all the frames
  198. Mode-3 = inspect only lexical frames
  199. Mode-4 = inspect only EVAL and APPLY frames (default)
  200. Mode-5 = inspect only APPLY frames
  201. Where  = inspect this frame
  202. Up     = go up one frame, inspect it
  203. Top    = go to top frame, inspect it
  204. Down   = go down one frame, inspect it
  205. Bottom = go to bottom (most recent) frame, inspect it
  206. Backtrace-1 = list all stack elements
  207. Backtrace-2 = list all frames
  208. Backtrace-3 = list all lexical frames
  209. Backtrace-4 = list all EVAL and APPLY frames
  210. Backtrace-5 = list all APPLY frames
  211. Backtrace   = list stack in current mode
  212. Redo   = re-evaluate form in EVAL-Frame
  213. Return = leave EVAL-Frame, prescribing the return values"
  214.      (CONS #2="Help" #'DEBUG-HELP) (CONS #3="?" #'DEBUG-HELP) (CONS #4="Abort" #'DEBUG-UNWIND)
  215.      (CONS #5="Unwind" #'DEBUG-UNWIND) (CONS #6="Mode-1" #'DEBUG-MODE-1)
  216.      (CONS #7="Mode-2" #'DEBUG-MODE-2) (CONS #8="Mode-3" #'DEBUG-MODE-3)
  217.      (CONS #9="Mode-4" #'DEBUG-MODE-4) (CONS #10="Mode-5" #'DEBUG-MODE-5)
  218.      (CONS #11="Where" #'DEBUG-WHERE) (CONS #12="Up" #'DEBUG-UP) (CONS #13="Top" #'DEBUG-TOP)
  219.      (CONS #14="Down" #'DEBUG-DOWN) (CONS #15="Bottom" #'DEBUG-BOTTOM)
  220.      (CONS #16="Backtrace-1" #'DEBUG-BACKTRACE-1) (CONS #17="Backtrace-2" #'DEBUG-BACKTRACE-2)
  221.      (CONS #18="Backtrace-3" #'DEBUG-BACKTRACE-3) (CONS #19="Backtrace-4" #'DEBUG-BACKTRACE-4)
  222.      (CONS #20="Backtrace-5" #'DEBUG-BACKTRACE-5) (CONS #21="Backtrace" #'DEBUG-BACKTRACE)
  223.    ))
  224.    WARN #1# #2# DEBUG-HELP #3# #4# DEBUG-UNWIND #5# #6# DEBUG-MODE-1 #7# DEBUG-MODE-2 #8#
  225.    DEBUG-MODE-3 #9# DEBUG-MODE-4 #10# DEBUG-MODE-5 #11# DEBUG-WHERE #12# DEBUG-UP #13# DEBUG-TOP
  226.    #14# DEBUG-DOWN #15# DEBUG-BOTTOM #16# DEBUG-BACKTRACE-1 #17# DEBUG-BACKTRACE-2 #18#
  227.    DEBUG-BACKTRACE-3 #19# DEBUG-BACKTRACE-4 #20# DEBUG-BACKTRACE-5 #21# DEBUG-BACKTRACE
  228.   )
  229. #Y(#:TOP-LEVEL-FORM-40-3
  230.    #35Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 94 05 76 DB 94 07 76 77 02
  231.         31 75 3D 19 01
  232.        )
  233.    COMMANDS2 "~S redefines the constant ~S. Its old value was ~S."
  234.    (DEFCONSTANT COMMANDS2 (LIST (CONS #1="Redo" #'DEBUG-REDO) (CONS #2="Return" #'DEBUG-RETURN)))
  235.    WARN #1# DEBUG-REDO #2# DEBUG-RETURN
  236.   )
  237. #Y(#:TOP-LEVEL-FORM-40-4
  238.    #32Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 DA 94 06 76 77 02 31 75 C0
  239.         19 01
  240.        )
  241.    COMMANDS3 "~S redefines the constant ~S. Its old value was ~S."
  242.    (DEFCONSTANT COMMANDS3
  243.     (LIST
  244.      #1="
  245. Continue = continue evaluation"
  246.      (CONS #2="Continue" #'DEBUG-CONTINUE)
  247.    ))
  248.    WARN #1# #2# DEBUG-CONTINUE
  249.   )
  250. #Y(#:TOP-LEVEL-FORM-41 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAIN-LOOP
  251.    REMOVE-OLD-DEFINITIONS
  252.    #Y(MAIN-LOOP #14Y(00 00 00 00 00 01 C0 0F 01 D7 30 56 19 01) 0. *BREAK-COUNT*
  253.       #Y(MAIN-LOOP-1
  254.          #27Y(00 00 00 00 00 01 C0 4D 10 D6 67 02 6D 9E 86 03 04 00 4E 19 01 2D 04 1A 79 19 01)
  255.          DEBUG "> " COMMANDS0 READ-EVAL-PRINT EXIT
  256.   )  )  )
  257. #Y(#:TOP-LEVEL-FORM-42 #12Y(00 00 00 00 00 01 94 00 0F 01 19 01) MAIN-LOOP *DRIVER*)
  258. #Y(#:TOP-LEVEL-FORM-43 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BREAK-LOOP
  259.    REMOVE-OLD-DEFINITIONS
  260.    #Y(BREAK-LOOP
  261.       #128Y(01 00 00 00 00 02 00 2A 01 7B 02 00 00 49 02 80 6C 80 68 9D 2A 01 67 00 31 89 10 00 D6
  262.             6E 64 98 10 02 9B 10 03 37 01 6E 69 50 18 67 00 37 0B B5 30 80 D9 AA 37 02 30 89 DA AA
  263.             37 02 30 89 A9 31 6A 3E 51 63 00 00 37 01 31 6F 52 16 01 0B 0A 00 DB 2E 07 10 08 2D 09
  264.             10 0A CB 10 0C 67 08 67 0C 6C 0D 67 0C 2F 0E 10 0F BD 62 1A 69 10 02 30 56 12 06 16 01
  265.             11 16 01 30 57 1A 02 30 57 4A 19 03
  266.            )
  267.       *BREAK-COUNT* *DEBUG-IO* *STANDARD-INPUT* *STANDARD-OUTPUT* ". Break" "> " 12. FRAME-LIMIT1
  268.       *FRAME-LIMIT1* FRAME-LIMIT2 *FRAME-LIMIT2* 4. *DEBUG-MODE* FRAME-UP-1 FRAME-DOWN-1
  269.       *DEBUG-FRAME*
  270.       #Y(BREAK-LOOP-1
  271.          #38Y(00 00 00 00 00 01 C2 4D 0B 67 03 29 14 D6 69 04 02 2F 05 4E 14 A7 23 06 07 A7 23 07
  272.               06 00 19 02 4C 01 01 4C 01 00
  273.              )
  274.          NIL NIL DEBUG *DEBUG-FRAME*
  275.          #Y(BREAK-LOOP-1-1
  276.             #51Y(00 00 00 00 00 01 65 00 01 67 02 6D 9E 67 03 84 04 12 00 14 07 01 01 1B 11 00 14
  277.                  6F 03 21 86 07 0F 00 19 01 67 05 30 9E 1A 69 67 06 30 9E 1A 6A 4C 01 00
  278.                 )
  279.             NIL NIL COMMANDS1 *DEBUG-FRAME* EVAL-FRAME-P COMMANDS2 COMMANDS3 READ-EVAL-PRINT
  280.            )
  281.          SAME-ENV-AS UNWIND QUIT
  282.   )  )  )
  283. #Y(#:TOP-LEVEL-FORM-44 #12Y(00 00 00 00 00 01 94 00 0F 01 19 01) BREAK-LOOP *BREAK-DRIVER*)
  284. #Y(#:TOP-LEVEL-FORM-45 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 D7 30 53 C1 19 01)
  285.    (SPECIAL *STEP-LEVEL*) *STEP-LEVEL* 0.
  286.   )
  287. #Y(#:TOP-LEVEL-FORM-46 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 D7 30 53 C1 19 01)
  288.    (SPECIAL *STEP-QUIT*) *STEP-QUIT* #.MOST-POSITIVE-FIXNUM
  289.   )
  290. #Y(#:TOP-LEVEL-FORM-47 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  291.    (SPECIAL *STEP-WATCH*) *STEP-WATCH*
  292.   )
  293. #Y(#:TOP-LEVEL-FORM-48 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) STEP
  294.    REMOVE-OLD-DEFINITIONS MACRO
  295.    #Y(STEP
  296.       #29Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2C 0A 9A 57 74 D7 D8 A9 5C 03 19 04 A9 2E 01 19 03)
  297.       2. MACRO-CALL-ERROR LET*
  298.       ((*STEP-LEVEL* 0.) (*STEP-QUIT* MOST-POSITIVE-FIXNUM) (*STEP-WATCH* NIL)
  299.        (*EVALHOOK* #'STEP-HOOK-FN)
  300.   )  ))
  301. #Y(#:TOP-LEVEL-FORM-49
  302.    #52Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 DA C6 76 DC C8 76 DE CA 76
  303.         E0 CC 76 E2 CE 76 E4 D0 76 E6 D2 76 E8 D4 76 77 09 31 75 C0 19 01
  304.        )
  305.    COMMANDS4 "~S redefines the constant ~S. Its old value was ~S."
  306.    (DEFCONSTANT COMMANDS4
  307.     (LIST
  308.      #1="
  309. Step     = step into form: evaluate this form in single step mode
  310. Next     = step over form: evaluate this form at once
  311. Over     = step over this level: evaluate at once up to the next return
  312. Continue = switch off single step mode, continue evaluation
  313. Step-until, Next-until, Over-until, Continue-until:
  314.            same as above, specify a condition when to stop"
  315.      (CONS #2="Step" #'(LAMBDA NIL (THROW 'STEPPER 'INTO)))
  316.      (CONS #3="Next" #'(LAMBDA NIL (THROW 'STEPPER 'OVER)))
  317.      (CONS #4="Over" #'(LAMBDA NIL (THROW 'STEPPER 'OVER-THIS-LEVEL)))
  318.      (CONS #5="Continue" #'(LAMBDA NIL (THROW 'STEPPER 'CONTINUE)))
  319.      (CONS #6="Step-until" #'(LAMBDA NIL (THROW 'STEPPER (VALUES 'INTO T))))
  320.      (CONS #7="Next-until" #'(LAMBDA NIL (THROW 'STEPPER (VALUES 'OVER T))))
  321.      (CONS #8="Over-until" #'(LAMBDA NIL (THROW 'STEPPER (VALUES 'OVER-THIS-LEVEL T))))
  322.      (CONS #9="Continue-until" #'(LAMBDA NIL (THROW 'STEPPER (VALUES 'CONTINUE T))))
  323.    ))
  324.    WARN #1# #2# #Y(#:TOP-LEVEL-FORM-49-1 #9Y(00 00 00 00 00 01 D5 C1 4F) STEPPER INTO) #3#
  325.    #Y(#:TOP-LEVEL-FORM-49-2 #9Y(00 00 00 00 00 01 D5 C1 4F) STEPPER OVER) #4#
  326.    #Y(#:TOP-LEVEL-FORM-49-3 #9Y(00 00 00 00 00 01 D5 C1 4F) STEPPER OVER-THIS-LEVEL) #5#
  327.    #Y(#:TOP-LEVEL-FORM-49-4 #9Y(00 00 00 00 00 01 D5 C1 4F) STEPPER CONTINUE) #6#
  328.    #Y(#:TOP-LEVEL-FORM-49-5 #12Y(00 00 00 00 00 01 D5 D6 60 3F 02 4F) STEPPER INTO) #7#
  329.    #Y(#:TOP-LEVEL-FORM-49-6 #12Y(00 00 00 00 00 01 D5 D6 60 3F 02 4F) STEPPER OVER) #8#
  330.    #Y(#:TOP-LEVEL-FORM-49-7 #12Y(00 00 00 00 00 01 D5 D6 60 3F 02 4F) STEPPER OVER-THIS-LEVEL) #9#
  331.    #Y(#:TOP-LEVEL-FORM-49-8 #12Y(00 00 00 00 00 01 D5 D6 60 3F 02 4F) STEPPER CONTINUE)
  332.   )
  333. #Y(#:TOP-LEVEL-FORM-50 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) STEP-VALUES
  334.    REMOVE-OLD-DEFINITIONS
  335.    #Y(STEP-VALUES
  336.       #106Y(01 00 00 00 00 02 0E 00 10 01 37 01 30 8B D7 37 03 30 89 67 03 37 0C 30 80 D9 37 03 30
  337.             89 AB 6E 41 A7 23 05 13 A7 23 07 16 AC 6E 41 37 0C 30 80 DE 37 03 30 89 AC 1A 25 DB 37
  338.             03 30 89 1A 24 DD 37 03 30 89 90 05 37 0C 30 80 1A 17 90 00 7F 01 37 0C 30 80 A7 88 92
  339.             05 DF 37 03 30 89 A7 89 92 6B 16 01 16 01 11 99 43 19 02
  340.            )
  341.       *DEBUG-IO* *STANDARD-OUTPUT* "step " *STEP-LEVEL* " ==> " 0. "no values" 1. "value: "
  342.       " values: " ", "
  343.   )  )
  344. #Y(#:TOP-LEVEL-FORM-51 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) STEP-HOOK-FN
  345.    REMOVE-OLD-DEFINITIONS
  346.    #Y(STEP-HOOK-FN
  347.       #271Y(01 00 01 00 00 08 3A 01 03 0E 00 F7 67 01 31 89 10 01 67 01 67 02 8D 01 30 0E 0E 03 1C
  348.             80 A7 14 35 00 1C 80 A1 C4 0F 02 49 02 80 DD 80 B5 00 2A 01 DA 6E 64 98 10 06 9B 10 07
  349.             37 01 6E 69 50 18 DD AA 37 02 30 89 67 01 37 0B B5 30 80 DE AA 37 02 30 89 A9 31 6A 3E
  350.             51 63 00 00 37 01 31 6F 52 16 01 0B 07 00 DF 2E 0B 10 0C 2D 0D 10 0E CF 10 10 67 0C 67
  351.             10 6C 11 67 10 2F 12 10 13 37 01 30 8C E9 37 03 30 89 67 01 37 0C 30 80 EA 37 03 30 89
  352.             62 1E 37 0C CF FF 03 16 09 0A 30 80 03 17 4D 09 BD 62 1A 69 18 02 30 56 4E 41 02 8F 00
  353.             13 EE 6B 1A 67 13 F0 F1 5F AB 77 03 77 02 2F 1D 0F 03 16 01 99 25 1E 18 AC 01 02 AE 30
  354.             5D 1A 32 16 02 12 06 16 02 1A 0F 16 02 12 06 16 02 1A 16 16 02 1A FF BA 30 57 B1 94 1F
  355.             1A 0C 16 02 12 06 16 02 0E 01 0F 02 B1 00 14 5F B3 30 5D 42 14 2E 20 4B 11 19 03 16 02
  356.             12 06 16 02 03 21 0F 02 1A 65
  357.            )
  358.       *TOPLEVEL-ENVIRONMENT* *STEP-LEVEL* *STEP-QUIT* *STEP-WATCH* #.MOST-POSITIVE-FIXNUM
  359.       *DEBUG-IO* *STANDARD-INPUT* *STANDARD-OUTPUT* "Step " "> " 11. FRAME-LIMIT1 *FRAME-LIMIT1*
  360.       FRAME-LIMIT2 *FRAME-LIMIT2* 4. *DEBUG-MODE* FRAME-UP-1 FRAME-DOWN-1 *DEBUG-FRAME* "step "
  361.       " --> " 3. STEPPER
  362.       #Y(STEP-HOOK-FN-1
  363.          #31Y(00 00 00 00 00 01 C2 4D 0B 67 03 29 14 D6 69 04 02 2F 05 4E 14 A7 23 06 03 00 19 02
  364.               4C 01 01
  365.              )
  366.          NIL NIL DEBUG *DEBUG-FRAME*
  367.          #Y(STEP-HOOK-FN-1-1
  368.             #42Y(00 00 00 00 00 01 65 00 01 67 02 6D 9E 67 03 84 04 0F 00 14 67 06 6D 9E 6F 03 21
  369.                  86 07 09 00 19 01 67 05 30 9E 1A 6C 4C 01 00
  370.                 )
  371.             NIL NIL COMMANDS1 *DEBUG-FRAME* EVAL-FRAME-P COMMANDS2 COMMANDS4 READ-EVAL-PRINT
  372.            )
  373.          SAME-ENV-AS UNWIND
  374.         )
  375.       "condition when to stop: " READ-FORM FUNCTION LAMBDA EVAL-AT
  376.       #S(HASH-TABLE EQ (CONTINUE . 62.) (OVER-THIS-LEVEL . 37.) (OVER . 17.) (INTO . 9.))
  377.       STEP-HOOK-FN STEP-VALUES 0.
  378.   )  )
  379. #Y(#:TOP-LEVEL-FORM-52 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  380.    (SPECIAL *ERROR-HANDLER*) *ERROR-HANDLER*
  381.   )
  382. #Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CERROR
  383.    REMOVE-OLD-DEFINITIONS
  384.    #Y(CERROR
  385.       #85Y(02 00 00 00 01 18 0E 00 1B 2C 67 01 30 8B D7 67 01 37 02 30 89 67 01 30 8B 95 03 67 01
  386.            AB 9C 36 02 67 01 30 8B 67 04 84 05 15 95 03 67 01 9D 14 9C 36 02 00 19 04 14 8E 04 01
  387.            02 14 9C 1A 70 DB 67 01 37 02 30 89 95 03 67 01 AC 9C 36 02 67 07 60 35 01 1A 5E
  388.           )
  389.       *ERROR-HANDLER* *ERROR-OUTPUT* "** - Continuable Error" FORMAT *DEBUG-IO*
  390.       INTERACTIVE-STREAM-P "If you continue (by typing 'continue'): " *BREAK-DRIVER*
  391.   )  )
  392. #Y(#:TOP-LEVEL-FORM-54 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  393.    (SPECIAL *BREAK-ON-WARNINGS*) *BREAK-ON-WARNINGS*
  394.   )
  395. #Y(#:TOP-LEVEL-FORM-55 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) WARN
  396.    REMOVE-OLD-DEFINITIONS
  397.    #Y(WARN
  398.       #41Y(01 00 00 00 01 17 67 00 30 8B D6 67 00 37 02 30 89 67 00 30 8B 95 02 67 00 AB 9C 36 02
  399.            0E 03 1C 05 67 04 60 35 01 00 19 03
  400.           )
  401.       *ERROR-OUTPUT* "WARNING:" FORMAT *BREAK-ON-WARNINGS* *BREAK-DRIVER*
  402.   )  )
  403. #Y(#:TOP-LEVEL-FORM-56 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) BREAK
  404.    REMOVE-OLD-DEFINITIONS
  405.    #Y(BREAK
  406.       #31Y(00 00 01 00 01 00 3A 02 02 C0 F8 67 01 30 8B 95 02 67 01 AB 9C 36 02 67 03 60 35 01 00
  407.            19 03
  408.           )
  409.       "*** - Break" *ERROR-OUTPUT* FORMAT *BREAK-DRIVER*
  410.   )  )
  411. #Y(#:TOP-LEVEL-FORM-57 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) Y-OR-N-P
  412.    REMOVE-OLD-DEFINITIONS
  413.    #Y(Y-OR-N-P
  414.       #78Y(00 00 01 00 01 00 3A 02 23 79 02 8F 02 21 67 00 30 8C 95 01 67 00 AB 9C 36 02 C2 1A 28
  415.            A7 DA 6D 32 30 2A 25 06 18 00 19 04 02 19 04 8E 02 5F D8 67 00 37 03 6D 77 6C 04 A7 6E
  416.            41 8A 85 5F 16 01 67 00 30 8B C7 14 67 00 37 02 30 89 1A 61
  417.           )
  418.       *QUERY-IO* FORMAT " (y/n) " " " STRING-LEFT-TRIM 0.
  419.       #S(HASH-TABLE EQ (#\Y . 4.) (#\J . 4.) (#\N . 1.)) "Please answer with y or n : "
  420.   )  )
  421. #Y(#:TOP-LEVEL-FORM-58 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) YES-OR-NO-P
  422.    REMOVE-OLD-DEFINITIONS
  423.    #Y(YES-OR-NO-P
  424.       #74Y(00 00 01 00 01 00 3A 02 14 79 02 8F 02 12 67 00 30 8C 95 01 67 00 AB 9C 36 02 C2 1A 21
  425.            8E 02 6E 67 00 30 7D D8 67 00 37 03 6D 77 6C 04 A7 DA DB 37 02 6D BA 8E 00 10 16 02 67
  426.            00 30 8B C7 14 67 00 37 02 30 89 1A 59 57 19 05
  427.           )
  428.       *QUERY-IO* FORMAT " (yes/no) " " " STRING-TRIM (("ja" . T) ("nein") ("yes" . T) ("no"))
  429.       #.#'STRING-EQUAL "Please answer with yes or no : "
  430.   )  )
  431. #Y(#:TOP-LEVEL-FORM-59-1 #12Y(00 00 00 00 00 01 D5 30 5B 3D 19 01) (SPECIAL *KEYBOARD-INPUT*))
  432. #Y(#:TOP-LEVEL-FORM-59-2 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) WITH-KEYBOARD
  433.    REMOVE-OLD-DEFINITIONS MACRO
  434.    #Y(WITH-KEYBOARD #17Y(01 00 01 00 00 08 91 02 D5 5F D6 9B 76 5C 03 19 04) LET PROGN)
  435.   )